home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ IE Outlook Express 8.xpl < prev    next >
Text File  |  2001-05-14  |  3KB  |  68 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="1"
  3. "COUNT"="2"
  4. "UIPATH"="Internet\Outlook Express\Appearance"
  5. "NAME"="Custom URLs"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Infopane URL:"
  8. "TEXT 2"="Help URL:"
  9. "DESCRIPTION 1"="You may find that you have a bar at the bottom of your copy of Outlook Express, which will probably offer links to pages on your ISP's web site. This is called the Info Pane (or Body Bar), and this plug-in will let you customize the URL which Outlook Express uses to display the page. Note that you must type in the protocol (ie you must type 'http://www.xteq.com/ instead of just www.xteq.com)."
  10. "DESCRIPTION 2"="NB: If you can't see the Info Pane, open up Outlook Express, open the View menu, and choose Layout, then place a tick by 'Info Pane'. If you have not set an URL above, you will not see this option. Also, this is NOT the pane shown when using a Hotmail account in Outlook Express 5.01 or above."
  11. "DESCRIPTION 3"="The second option changes the URL you visit when you go to Help > Microsoft On The Web > Online Support in Outlook Express. Generally this is set by your ISP, but you can override this here. If it is not set, it points to Microsoft's Outlook Express web site."
  12. "COMMENT 1"="Hmmm... I never realised how much my ISP customized Outlook Express...."
  13. "VERSION"="1.0"
  14. "AUTHOR"="Neil R. Turner (totalxs@hotmail.com) for Xteq Systems"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "CONTACTURL"="http://www.neilrt.cwc.net/"
  17.  
  18. ID="HKCU\Identities\Last User ID"
  19. sP1="\Software\Microsoft\Outlook Express\5.0\"
  20. Inf="BodyBarPath"
  21. Hlp="HelpUrl"
  22.  
  23. SUB Plugin_Initialize
  24.  y=RegReadValue(ID)
  25.  if IsEmpty(y)=false then
  26.   sValPath="HKCU\Identities\" & y & sP1
  27.  
  28.   t=RegReadValue(sValPath & Inf)
  29.   Call SetUIElement(1,t)
  30.  
  31.   t=RegReadValue(sValPath & Hlp)
  32.   Call SetUIElement(2,t)
  33.  else
  34.   Call Disable()
  35.  end if
  36. END SUB
  37.  
  38. SUB Plugin_CheckData(ElementIndex)
  39. END SUB
  40.  
  41. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  42.  y=RegReadValue(ID)
  43.  sValPath="HKCU\Identities\" & y & sP1
  44.  
  45.  s=GetUIElement(1)
  46.  if Len(s)<=0 then
  47.   b=RegReadValue(sValPath & Inf)
  48.   if IsEmpty(b)=false then
  49.    Call RegDeleteValue(sValPath & Inf)
  50.   end if
  51.  else
  52.   Call RegWriteValue(sValPath & Inf,s,1)
  53.  end if
  54.  
  55.  s=GetUIElement(2)
  56.  if Len(s)<=0 then
  57.   b=RegReadValue(sValPath & Hlp)
  58.   if IsEmpty(b)=false then
  59.    Call RegDeleteValue(sValPath & Hlp)
  60.   end if
  61.  else
  62.   Call RegWriteValue(sValPath & Hlp,s,1)
  63.  end if
  64. END SUB
  65.  
  66. SUB Plugin_Terminate
  67. END SUB
  68.